Polozky menu z exe suboru
Otázka od: Roman Newman
15. 11. 2002 18:26
Oops: ospravedlnujem sa za predchadzajuci mail, nechtiac som to odklikol.
Zdravim vsetkych,
Neviete niekto ako sa da z exe suboru vytiahnut zoznam foriem a ich
komponenty. Konkretne potrebujem vsetky popup-menu zo vsetkych foriem.
Stacilo by ak by to
fungovalo ako v programe -pexplorer- zovrazi pre kazdu formu jej zdrojovi
DFM ako text.
Vdaka
Roman Newman
Odpovedá: Petr Vones
15. 11. 2002 20:40
From: "Roman Newman" <r.newman@zmail.sk>
> Neviete niekto ako sa da z exe suboru vytiahnut zoznam foriem a ich
> komponenty. Konkretne potrebujem vsetky popup-menu zo vsetkych foriem.
> Stacilo by ak by to
> fungovalo ako v programe -pexplorer- zovrazi pre kazdu formu jej zdrojovi
> DFM ako text.
Napriklad pomoci tridy TJclPeBorImage z JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
http://delphi-jedi.org/CODELIBJCL
uses
JclPeImage;
procedure TForm1.Button1Click(Sender: TObject);
var
BorImage: TJclPeBorImage;
I: Integer;
TempList: TStringList;
begin
BorImage := TJclPeBorImage.Create;
TempList := TStringList.Create;
try
BorImage.FileName := 'project1.exe';
if BorImage.IsBorlandImage then
for I := 0 to BorImage.FormCount - 1 do
begin
BorImage.Forms[I].ConvertFormToText(TempList);
Memo1.Lines.Add(BorImage.Forms[I].DisplayName);
Memo1.Lines.Add(StringOfChar('-', 80));
Memo1.Lines.AddStrings(TempList);
Memo1.Lines.Add('');
end;
finally
BorImage.Free;
TempList.Free;
end;
end;
Petr Vones
______________________________________________________
Zachrante kolacky a koblihy: http://www.kobliha.4ip.cz